home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / bbs / rchat401.zip / RSB5ANCH.MRG < prev    next >
Text File  |  1992-09-14  |  5KB  |  121 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB5.BAS to produce RBBSSUB5.BAS
  3. * OLD\RBBSSUB5.BAS:  Date 8-26-1990  Size 91511 bytes
  4. * ------------[ Created 08-28-1990 14:16:22 ]------------
  5. * REPLACING old line(s) by new
  6. 20117 ' $SUBTITLE: 'FileSystem -- subroutine for RBBS-PC's file system'
  7. ' $PAGE
  8. '
  9. ' NAME    -- FileSystem
  10. '
  11. ' INPUTS  --       PARAMETER                 MEANING
  12. '             ZFileSysParm = 1  LIST THE SYSOP'S COMMENTS FILE
  13. '                                 2  L)IST DIRECTORY COMMAND
  14. '                                 3  D)OWNLOAD COMMAND
  15. '                                 4  RETURN FROM EXTERNAL PROTOCOLS
  16. '                                 5  U)PLOAD COMMAND
  17. '                                 6  S)CAN DIRECTORY COMMAND
  18. '                                 7  P)ERSONAL FILES COMMAND
  19. '                                 8  N)EW FILES COMMAND
  20. '                                 9  RETURN FROM EXTENDED DESCRIPTION
  21. '
  22. ' OUTPUTS -- ZFileSysParm = 1  COMMAND PROCESSED SUCCESSFULLY
  23. '                                2  RECYCLE TO TOP OF RBBS-PC (202)
  24. '                                3  PROCESS NEXT COMMAND (1200)
  25. '                                4  DENY USER ACCESS (1380)
  26. '                                5  HANDLE EXTENDED DESCRIP. (2008)
  27. '                                6  USER'S TIME EXCEEDED (10553)
  28. '                                7  Carrier DROPPED (10595)
  29. '
  30. ' PURPOSE -- To handle the RBBS-PC file system commands
  31. '
  32.       SUB FileSystem STATIC
  33.       ZFF = ZFileSysParm
  34.       ZFileSysParm = 1
  35. * ------[ first line different ]------
  36.  
  37.       CALL SaveUserActivity("F", ZNodeRecIndex, ZFalse)              ' RCHAT
  38.  
  39.       ZActiveFMSDir$ = ""                                            ' KG120201
  40.       ON ZFF GOSUB 20119, _  ' HANDLER TO LIST COMMENTS TO SYSOP
  41.                   20150, _  ' L)IST DIRECTORY COMMAND HANDLER
  42.                   20180, _  ' D)OWNLOAD COMMAND HANDLER
  43.                   20263, _  ' RETURN FROM EXTERNAL Protocol'S
  44.                   20400, _  ' U)PLOAD COMMAND HANDLER
  45.                   21800, _  ' S)CAN DIRECTORY COMMAND HANDLER
  46.                   21850, _  ' P)ERSONAL FILES COMMAND HANDLER
  47.                   21860, _  ' N)EW FILES COMMAND HANDLER
  48.                   20705     ' RETURN FROM EXTENDED DESCRIPTIONS
  49.       GOTO 21920
  50.  
  51.  
  52. 63630 ' * Sets the user preferences based on user record.            ' KG022601
  53.       ' * Formerly in RBBS-PC.BAS
  54.       SUB SetUserPref STATIC
  55.       IF ZWasA THEN _
  56.          ZUserSecLevel = ZSysopSecLevel _
  57.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  58.       ZBankTime = ASC(ZBankTime$)                                    ' SK010601
  59.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  60.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  61.       IF ZUserXferDefault$ = " " THEN _
  62.          ZUserXferDefault$ = "N"
  63.       CALL XferType (2,ZTrue)
  64.       WasX = ASC(MID$(ZUserOption$,6,1))
  65.       ZWasGR = (WasX MOD 3)
  66.       ZBoldText$ = CHR$(48 - (WasX > 50))
  67.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  68.       IF ZUserTextColor > 37 THEN _
  69.          ZUserTextColor = ZUserTextColor - 7
  70.       IF ZEmphasizeOff$ <> "" THEN _
  71.          CALL QuickTPut (ZColorReset$,0)
  72.       IF ZEmphasizeOnDef$ <> "" THEN _
  73.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  74.       ELSE ZEmphasizeOff$ = ""
  75.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  76.          ZWasGR = 0
  77.       CALL SetGraphic (ZWasGR)                                       ' KG022003
  78.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  79.       IF ZRightMargin > 72 THEN _
  80.          ZRightMargin = 72
  81.       ZWasCI$ = ZCityState$
  82.       CALL Trim (ZWasCI$)
  83.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  84.       ZPromptBell = (UserOptions AND 1) > 0
  85.       ZExpertUser = (UserOptions AND 2) > 0
  86.       CALL SetExpert
  87.       ZNulls = (UserOptions AND 4) > 0
  88.       ZUpperCase = (UserOptions AND 8) > 0
  89.       ZLineFeeds = (UserOptions AND 16) > 0
  90.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  91.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  92.       ZAutoDownDesired = (UserOptions AND 128) > 0
  93.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  94.       ZMailWaiting = (UserOptions AND 512) > 0
  95.       WasX = (UserOptions AND 1024 ) > 0
  96.       CALL SetHiLite (NOT WasX)
  97.       IF NOT ZHiLiteOff THEN _
  98.          CALL QuickTPut (ZEmphasizeOff$,0)
  99.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  100.       ZTurboKey = ZFalse
  101.       ZFileWaiting = (UserOptions AND 4096) > 0                      ' KG112101
  102.       ZFullScreenEditor = (UserOptions AND 8192) >  0                'Ansi&Chat
  103.  
  104.       REM ** Change to:                                      **
  105.       REM ** ZAvailableForChat = (UserOptions AND 16384) = 0 **
  106.       REM ** If you want availability to be default ON       **
  107.  
  108.       ZAvailableForChat = (UserOptions AND 16384) > 0                ' RCHAT
  109.  
  110.       CALL SetRegDisplay                                             ' KG011801
  111.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  112.       IF ZSubBoard THEN _                                            ' KG022601
  113.          GOTO 63632
  114.       WasX$ = ZEchoer$
  115.       ZEchoer$ = MID$(ZUserOption$,14,1)
  116.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  117.          ZEchoer$ = "R"
  118.       IF WasX$ <> ZEchoer$ THEN _
  119.          CALL ReportEcho                                             ' KG022601
  120.       CALL SetEcho (ZEchoer$)
  121.